home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
walpeep
/
wallabot.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
4KB
|
120 lines
VERSION 2.00
Begin Form Form3
BorderStyle = 3 'Fixed Double
Caption = "About WallPeeper"
ClientHeight = 3480
ClientLeft = 1140
ClientTop = 1320
ClientWidth = 3480
ControlBox = 0 'False
Height = 3885
Left = 1080
LinkMode = 1 'Source
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3480
ScaleWidth = 3480
Top = 975
Width = 3600
Begin CommandButton Command1
Caption = "OK"
Height = 375
Left = 1080
TabIndex = 6
Top = 2760
Width = 1335
End
Begin Label Label1
Alignment = 2 'Center
Caption = "or neslon@panix.com"
Height = 255
Index = 8
Left = 0
TabIndex = 7
Top = 2400
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
Caption = "70741,422"
Height = 255
Index = 7
Left = 0
TabIndex = 5
Top = 2160
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Wilson Smith and Carole Rogers"
Height = 255
Index = 9
Left = 0
TabIndex = 8
Top = 1920
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Questions, comments to:"
Height = 255
Index = 4
Left = 0
TabIndex = 4
Top = 1680
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Enjoy it!"
Height = 255
Index = 3
Left = 0
TabIndex = 3
Top = 1200
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
Caption = "No warranties, no liabilities"
Height = 255
Index = 2
Left = 0
TabIndex = 2
Top = 840
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
Caption = "Free, public domain, etc."
Height = 255
Index = 1
Left = 0
TabIndex = 1
Top = 600
Width = 3495
End
Begin Label Label1
Alignment = 2 'Center
Caption = "WallPeeper v1.11"
Height = 255
Index = 0
Left = 0
TabIndex = 0
Top = 120
Width = 3495
End
End
'11/16 1.0 - 1.01 -> non-tiling. consistent hourglassing
'11/17 1.01 - 1.02 -> stopped doing a CLS for tiled preview
' (bug introduced in 1.01)
'11/17 1.02 - 1.03 -> stopped doing a CLS at all. PatBlt for non-tiled background
'11/24 1.1
Sub Command1_Click ()
Unload Form3
End Sub